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| T*FILE**1De*LCORIVER 
LL CCCCCCCC §=DDDDDDDD RRRRRRRR III! VV VV EEEEEEEEEE RRRRRRRR 
LL CCCCCCCC + DDDDDDDD RRRRRRRR III VV VV EEEEEEEEEE RRRRRRRR 
LL cc DD DD RR RR I! VV vv EE RR RR 
LL cc dD DD RR RR I] Vv vv EE RR RR 
LL cc dD DD RR RR Il VV vv EE RR RR 
LL cc DD DD RR RR I] VV vv EE RR RR 
LL cc DD DD RRRRRRRR I! VV VV EEEEEEEE RRRRRRRR 
LL cc DD DD RRRRRRRR I] VV VV EEEEEEEE RRRRRRRR 
LL cc DD DD RR RR I] VV vv EE RR RR 
LL cc dD DD RR RR Il VV VV EE RR RR 
LL cc DD DD RR RR Il VV VV EE RR RR cove 
LL cc dD DD RR RR Il VV VV EE RR RR eee 
LLLLLLLLLL CCCCCCCC ~=DDDDDDDD RR RR IIIII1 VV EEEEEEEEEE RR RR eeee 
LLLLLLLLLL CCCCCCCC § DDDDDDDD RR RR III VV EEEEEEEEEE RR RR cove 
LL III SSSSSSSS 
LL W111! SSSSSSSS 
LL I] $$ 
LL I] SS 
LL I] $$ 
LL I] SS 
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LL I] SS 
LL I] SS 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

ALL RIGHTS RESERVED. 
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cd ® 
® ® 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 2 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
* COPIES THEREOF MAY NOT BE P PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
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& ® 
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; ABSTRACT: 
LINE PRINTER DRIVER FOR LP-730 CONTROLLER 
AUTHOR: 
E. A. DRAYTON 4-NOV-80 
MODIFIED BY: 
v¥03-008 ony Ellen M, Dusseault 30-Apr-1984 


d DEVSM_NNM characteristic to DEVCHAR2 so that these 
devices will have the prefix ‘‘node$"’. 
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OOSOSCOSOSOOSOSSSOSOSSOSOOSOoOoooSoooooooooooooooooooooo 


v03-007 EAD0113 Elliott A. Drayton 9-Mar-1984 
Added code to restore tre” address to RO. 
v03-006 EMD0048 Ellen M. Dusseault 20-F eb-1984 


new feature fallback. The ability to convert 
multinational characters (8-bit) to a 7-bit equivalent 
representation if possible. Aehernine an underscore 
replaces the multinational character. 


v03-005 wWHM0001 Bill Matthews 9-Dec-1983 
Added code tos gu eG new 1D8 fields jogs $3. PonBO VECTOR 
and 108% ot R_OFFSET for determ “the main CSR 
address ond o— ng the soft vector for t e combo device. 


V03-004 EAD0004 Elliott A. Drayton 26-Jul-1983 
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SOOCOSOSOCOOSOSOSOOSOOSOSOOOSOSSOSSSSSOOSOOSOSOSOSOSOOSOOOOOOOOOOOOO 
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: 3 
seta = tok PUNTER paves ou UmTsO” UCC SESS BRAITE ete Ae wean POP 
| 
| 
| 
| 
! 
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Add code to restore R2 after call to RELMPR, also 
increase the number of preallocated map registers. 


v03-003 EAD0003 Elliott A. Drayton 25-Apr-1983 
Changed code to cause indirect registers BUFADR thru 
LINES to be loaded during a write eryytees operation. 
Also changed DIPL to 21 and default Lines per page 
to 66 and do not allow a zero for Lines per page. 


v03-002 vee Kathleen D. Morse 28-Jun-1982 
Added SDYNDEF, SDCDEF, and SPRDEF. 
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DRIVER.MAR; 1 


offsets 

ine device types 

offsets 

offsets 

amic data structure types 
~~ msg. out ter 


@D~O3™=< VVC8 DZD 
o@7n > -@-@ 


Tenetion codes 

P offsets 

JIB offsets 

Line printer herecsertances 
System message 7 

Process centres ock 
Processor register numbers 
System status codes 

UCB offsets 

VEC offsets 

Virtual address fields 


ee NOVVIUINM 


Fo 
Fifth function dependent parameter 
Sixth function dependent parameter 


DMF CSR offset from LP CSR 
Value for LP master reset 


have dy 


; Set indirect reg. addr. to 2 and format on 


ye -SBTTL Declarations 
74 : 
7 ; MACRO LIBRARY CALLS 
7 Py 
4 SCRBDEF ——— 
7 SOCDEF 
0 SODBOEF 
1 SOPTDEF 
¢ SDYNDEF 
SEMBDEF 
4 SIDBDEF 
5 SIODEF 
§ SIRPDEF 
SJIBDEF 
8 SLPDEF 
9 SMSGDEF 
0 SPCBDEF 
91 SPRDEF 
3 SSSDEF 
3 SUCBDEF 
94 SVECDEF 
99 SVADEF 
$7 3; LOCAL SYMBOLS 
100 3 ARGUMENT LIST OFFSET DEFINITIONS 
101 ° 
103 P1=0 
8 PS 
104 P3=8 
105 P4=12 
196 P5=16 
107 P6=20 
109 ; 
110 ; 3 CHARACTER CODE DEFINITIONS 
112° 
118 DMF _CSR = -20 
114 RESET s 2 
s & > + 
113 M_STDCSR <2 * 256 4 
9 C_INDREG4 = 4 * 256 
By C_REGCN = 6 
i C“TIM = 15 
1 ° LC_MAPREG = § 
122 LP_HRCN = 1920 
125 LP-NUM_REGS = 9 
1 PAGSIZ = 512 
' 5 LINPAG = 66 
! ; LP_ERRBUF_LEN = <LP_NUM_REGS*4>+<<EMBSL 


Address of indirect req. number 
Number of indirect 4 MS proce to Tete 
Initial value for LPTIME 


Number of map reg. to pttec 
Timeout value for on 
Total number of controller indirect reg. 
Memor page s size(bytes) 
Default Lines per page for printer paper 


_DV_REGSAV>+4> ; Size of errorlog buffer 
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: Local macros 


JSB G* LOC $LOADUBAMAPA 


1 

: ; 

| 6 «MACRO LOADUBAA 
: -ENDM LOADUBAA 
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DEVICE REGISTER OFFSET DEFINITIONS 


SOEFINI LP 


SDEF P_CSR 
$VTELD LP 


> 
SVIELD LP_CSR2,8,<- 
<AOTOCR, .M>, . 
ae Me - 
<CASE . >, as 
> 
SDEF LP_OBR -BLKW 1 


SDEFEND LP 


Boiteies 


AX/VMS 
DRIVER.S 


v04-00 
jtcb DRIVER.MAR; 1 


sCONTROL STATUS REGISTER 


Print 
Format 


Interr 
Lin 


enable 
ene 


Unused bit 
Maintance “node anemic 


ot enab 
nter ++ 


Unused bit 
Upper and lower case enable 


Line tenable controller reset 


done ) 


Ind rect register address 
Unused bit 
Cable connected verification 
Direct access vertical forms unit error 
Line printer error 
Non existant memory error 


Automatic CR insert enable 
Mech. form feed to multiple Line feed enab 
Nonpr intable character enable | 


:DATA BUFFER REGISTER 


LP_CSRSM_ERR=<LP_CSRSM_NEX!LP_CSRSM_CVERF>;*** LP_CSRSM_DAVERR! #e* 


Page 


5 
(1) 


Enable wrapping of Lines > 132 characters | 
s 


a) 
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000000C4 


ssssssesoeses 
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178 ; 
173 ; DEFINE DEVICE DEPENDENT UNIT CONTROL BLOCK OFFSETS 
181 ° 
: § SOEFINI UCB 
184 ,=UCBSL_DPC+4 
185 $DEF  “UCBSW_CSR -BLKW 1 ; Image of Line printer C 
1 § SDEF UCBSW_BYTXFR -BLKW 1 ; Bytes transfered Ah cenarekier 
187 SDEF UCBSW_LINCNT -—BLKW 1 3; Number of Lines nt 
1 8 SDEF UCBSW_PREF IX -BLKw 1 ; Prefix char and Count naieees Ae 
189 SDEF UCBSW_ SUFFIX -—BLKW 1 3 sutt ie char ane S¢ count (indirec 
190 SDEF UCBSW_BUF ADR -—BLKW 1 ; Lower addr b # vaddr (indirect reg. 
191 SDEF UCBSW_BYTECNT .BLKW 1 ; DMA byte count (indirect reg. 
135 SDEF Urese HEB ADR -BLKB 1 ; Upper addr bits of buff ‘agar indirect reg. 
1935 SDEF UCBSB_CSR -BLKB 1 ; Control flags for LP attribute 
194 SDEF UCBSW_LINES -BLKW 1 ; Number of Lines per pene Si (indirect reg. 7) | 
195 SDEF UCBSW_LPTIMEOUT .BLKW 1 ; Offline message timeout value 
136 SDEF UCBSW_LP_OFLCNT .BLKW 1 ; Offline time counter 
197 SDEF UCBSW_MARBYT -BLKW 1 ; Number of map registers to alloc. 
198 SDEF UCBSL_REGSAVE .BLKL 2 ¢ Save R1 and R2 here 
+4 SDEF UCBSL_MAPREG -BLKL 1 ; Save permanent map reg. info. 
H UCBSK_SIZE=. 
08 SDEFEND UCB 
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-SBTTL Driver prologue table and driver dispatch table 


LOCAL DATA 
DRIVER PROLOGUE TABLE 


DPTAB. = ;DEFINE DRIVER PROLOGUE TABLE 
END=LP_END,= End of driver 
ADAPT PTERSU BA,- : Adapter type 
UcBs Ize =UCagK. SIZE,- UCB size 


NAME=LC : . ver name 
DPT_STORE INI 3; Control block init values 
DPT-STORE UCB, UCB$B_FIPL,B » 3: Fork IPL 
DPT“STORE UCB,UCBS$L_DEVCHAR,L = ;Device characteristics 

<DEVSM_REC=" : Record oriented 
AVL=- 3; Available 
3 Carriage control device 
; Output device 


LDEVSH. ELG- Error logging 


DPT _ STORE UCB, UCBSL_DEVCHAR2,L,=- : Boviee Characteristics 
<DEVSM_NNM>~ ate ix with ‘“‘node$” 

DPT_STORE UCB, Ocese. DEVCLASS 8 oc$ Pp Device class 

DPT“STORE UCB.UCB$B_DEV 256° T$ nES2 

DPT"STORE UCB, UCBSW ay Mase | #35" 


DPT-STORE UCB,UCBSB_DIPL,.B,21 ; Device IP 

DPT_STORE REINIT Control block re-init values 
DPT_STORE CRB,CRBSL_INTD+4,D Lpsint saterry : yrersee routine address 
DPTTSTORE CRB.CRBSL-INTD*VEC$L_INITIAL,D ; Controller init 
DPTTSTORE CRB,CRBSL-INTD+VECSL-UNITINIT, me tec INI It : Unit init 

DPT-STORE DDB,DDBSL-DDT.D,LPSDDT ; DDT address 

DPT“STORE END ; 


DRIVER DISPATCH TABLE 


DDTAB DRIVER DISPATCH TABLE 
; Start 1/0 operation 
Unsolicited interrupt 
Function table 
Cancel 
Register dump routine 
Size of diagnostic buffer 
Size of error log buffer 


SOSOSCOCSCSOOSOSOSOOSSSOOSOSCOSSSSOSOSOOOOOOCOCOOSOOSOSOOOOOOSOOSoOOS 


DOOCOOOSOSS NNAAAOMUINE & FF WWMAANAWOOOOO 


IOESEANCELIO,~ 
~REGDUMP, 


J pats 


PDD BB BEBE BE ANNAN AIA PINPONININIPININIDY 2 OOO OO es OO 


RO OD NA NEW 9 OD NAME WIN 0 OD NAME WIN 0 OD NOAU EW OOOO 


SGOQOCOOOOCOCOOOOD 9 SNIP NPM BW AWA OOOOOOWDWOOCSCO 


ooo 
ooo 


SOOOCSCOOCOOCOOOOOOOSOOOOOSOOOOOOSOOOOoOoOoOSO 


outt size 
DPT_STORE UE UCBSL-DEVDEPENG LE + teeabGel PSM HECHFORM>~ 3; Printer parameters 


LING PRINTER DRIVER FOR LP-730 : 
Panett on decision table 


SN NNSA AA AAAAAOOOurt 
NOUS WMO OONOUES WN —O 


ooofs 


rrr 


PORTALS» 


UNCTAB ,- 
<SENSECHAR,= 
SETCHAR, = 
SENSEMODE, = 
SE TMODE, = 
WRITELBLK,=- 
WRITEPBLK.= 
WRITEVBLK> 
FUNCT 


LK. 
WRITEVBLK> 
FUNCTAB tEXESSETH ODE,- 
HAR SETHODE> 
FUNCTAB sPHESCENSeH 
<SENSECHA EMO 


“SENSEMODES 


AB, 
FUNCTAB LP WRITE, ee tibere e 
WRITEPB 


"OSE 13ks Ob:sei5 DRIVER SRE TC CORT VEN. MAR: 1 


~SBTTL Function decision table 
; FUNCTION DECISION TABLE 


; FUNCTION et het TABLE 


; Legal functi 


Sense shorectertasten 


Set characteristics 
Sense mode 

Set mode 

write logical block 
Write physical block 
Write virtual block 


3NO BUFFERED FUNCTIONS 
3; Write functions 


; Set characteristics functions 


: Sense characteristics 
; Sense mode 
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nction processing “SEP-19 DRIVER. SRCILCDRIVER.MAR; 1 (1) 


c 


= -SBTTL FDOT = Write function processing 
LP_WRITE = WRITE FUNCTION PROCESSING 


PR 
wri 
6c 79 
6C 0 ; 
et (Bae 
6C 5 3; THIS ROUTINE IS CALLED FROM THE FUNCTION DECISION TABLE DISPATCHER TO PROCESS 
4: : 3 A WRITE PHYSICAL, WRITE LOGICAL, OR WRITE VIRTUAL FUNCTION TO A LINE PRINTER. 
06C § 3 INPUTS: 
006C ; 
006C 8 ; RO = SCRATCH. 
06C 9 3 R1 = SCRATCH. 
06C 0; R2 = SCRATCH. 
06C 91; R5 = ADDRESS OF 1/0 REQUEST PACKET. 
006C 35 ; RG = CURRENT PROCESS PCB ADDRESS. 
006C 93 ; R5 = ASSIGNED DEVICE UCB ADDRESS. 
006C 94 ; R6 = ADDRESS OF CCB. 
006C 95 ; R? = 1/0 FUNCTION CODE. 
006C 38 3 R8 = FUNCTION DECISION TABLE DISPATCH ADDRESS. 
006C 97 ; R9_ = SCRATCH. 
006C 98 ; R10 = SCRATCH. 
006C 99 ; R11 = SCRATCH. 
ooee 8 3 AP = ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER. 
006C 8g 3 OUTPUTS: 
006¢ 03 ; 
006C 04 ; FOR PROCESSING BY THE LINE PRINTER DRIVER. 
006C 05 ;:- 
006C 06 
006C 307 LP_WRITE: 
3¢C AS) 06(OC AC OCis«éOOKC 08 MOVL P4( AP), IRP$B_CARCON(R3) ; Insert carriage control byte 
51 O04 aC 3€ 0071 09 MOVZWL P2(AP),R1 ; Number of bytes to transfer | 
OE 13 Bore 10 BEQL 10$ ; If EQL none 
50 6C 00 007 11 MOVL P1(AP) ,RO - Get starting virtual addr. of tran 
OC 44 AS 09 £0 OO7A I ass #LPSV_FALLBACK,UCBSL_DEVDEPEND(R5),20$ If set. fallback 
QOO00000'GF 16 OO7F 313 5$:  JSB G*EXESWRITELOCK ; Check buffer and lock in memory | 
00000000°GF 17 4H i 10$: JMP G*EXESQIODRVPKT ; Queue 1/0 packet to driver 
088 16 ; 
088 i3 3; Convert IRP to a buffered i/o packet since fallback is specified. 
088 18 ; cons teens upon the fact that passall is not set (since passall would take 
088 19 ; precedence) and upon the fact that this is not a physical write operation 
it 3 ? : which again has precedence. 
EF 44 AS 98 69 3 § 20S: BBS ouPey PASSALL ,UCBSL_DEVDEPEND(A5).5$ ; passall has precedence 
08 1 CMPB sR? #10$_WRITEPBLK ; physical writ 
EA 13 9 4 BEQL 5$ ; EQL, yes so don’t convert 
SA AG OB? 9 5 DECW PCBSW_BIOCNT(R4) ; decrement buffered io count 
59 «619 98 § BLSS : if negative, quota exceeded 
3E A +} 9A 258: INCW PCBSW_DIOCNT(R4) 3 readjust direct io count 
2A Ad a. A 9D 8 B1SW #IRPSA_BUF IO, IRP$W_STS(R3) ; set irp$m_bufio equal to 1 
8B Al 9 PUSHR #*M<RO, : save buffer address and length 
00000000'°GF 16 A3 0 JSB At palate ; do we have access to user data 
51 co Ag 1 ADDL #12,R1 3 add "9 bytes for buffer header 
DD AC ¢ PUSHL ; save irp address 
B 18 AE JSB G*EXESBUFFRQUOTA ; ensure user has sufficient resourc 
> 6 6 4 4 BLBC : if clr, no 
00000000'GF 16 ? 5 JSB G*E XESALLOCBUF : allocate system buffer 


} 


| 


| 
} 
i 
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v04~ FDT = Write function processing -SEP-1984 00:14:4 DRIVER.SRCILCORIVER.MAR; 1 (1). 
&C E9 =] § BLBC RO,40$ 3; if clr, no buffer allocated 
8ED C POPL R 3; restore irp address 
2c A3 D C 3 MOVL A jrret SVAPTE(R3) ; save address of buffered i/o packe 
50 0080 (4 »D C MOVL  PCBSL_JIB(R4),RO : get jib address 
30 AQ oa. cc 40 SUBL 1, JIB$L_BYTCNT(RO) : adjust buffered i/o quota | 
OA 1 86 D 41 MOVW R1,1RPSW_BOFF (R3) 3 set number of bytes charged to quo 
BA D4 4¢ POPR #*A<RO,RT> ; restore to user buf addr and Lengt 
62 OCA 3 0D6 4 MOVAB = 12(R2), (R2) ; set up system buffer header 
04 A250 00 OODA 344 MOVL RO,4(R2) : insert address of user data 
2 OC Ae 9 DE 45 MOVAB 12(R2),R2 ; point at data area in buffer 
BB E +8 PUSHR #*M<R3 R4 -RS> 3; save registers that movtc destroys 
OQOOOO3E1"FF 20 69 ! E +H 4 MOVTC R1,(ROS ,# X20,@TRANS_TAB,R1,(R2) ; move char. into system buffer 
8 BA OOEF +8 POPR #*M<R3,R4,R5> ; restore registers 
2 11 OF 1 4 BRB 10$ 3 
aa 
A AG B6 OF 26 30$: INCW PCBSW_BIOCNT(R4) ; Backout charge 
52 A AG E OOF6 5 MOVAW PCBSW_BIOCNT(R4) ,R2 3; store pcb buffer count address 
08 BB OOFA 54 PUSHR #*M<RO,R1,R3> 3; save registers before destroyed 
00000000" GF 1g OOF ¢ 35 JB Grex SSNGLEQUOTA : check unit quota of io function ty 
0B BA b108 2§ POPR #*<RO,R1,R3> t restore registers | 
3A AG «B7 «(0107 38 DECW  PCBSW_BIOCNT(R4) : charge for i/o of type 
BE 11 Ha 2B BRB 25$ ; all set, continue on 
53 BED0 010C¢ 61 40$: POPL Ra 3: restore irp address 
00000000 ' GF 1 Bi%s ¢ JMP G*EXESABORTIO 3 
OE BA 0115 64 50$: POPR #*M<R1,R2,R3> 3; restore registers 
00000000 * GF 17 Bite 2 JMP G*EXESABORTIO 3 
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OOOO OOOO WOOO NI NINN NOOO 


11D 
11D 
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11D 
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11D 
11D 
110 
110 
11D 
11D 
QOAO CS) =6B4 «(0110 
0121 
0121 
0121 
54 4 aS 00 0121 
54 C84 DO 0125 9 
0129 9 
0129 94 
4 9 95 
00 ED 0129 96 
0 0128 97 
20 A 012C 98 
20 O12E 99 
03 12 O12F 400 
0044 31 QO131 401 
3 4 40 
00 ED 0134 40 
0 01 § 404 
20 A 1 405 
o¢ 139 = 40 
0 2 O13A 4 
0040 31 Q13C 408 
13F 8 §=6409 
00 ED Q135F 410 
141 411 
20 A 142 ret 
3 144 41 
5 13 0145 414 
147 415 
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STARTIO: 


10$: 


15$: 


OUTPUTS: 
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; STARTIO = START 1/0 OPERATION ON LINE PRINTERS 


THIS ROUTINE IS ENTERED WHEN THE ASSOCIATED UNIT IS IDLE AND A PACKET 
1S AVAILABLE. 


INPUTS: 


4H = ADDRESS OF 1/0 REQUEST PACKET. 
R> = UCB ADDRESS FOR IDLE UNIT. 


NO EXPLICIT OUTPUTS = THE UNIT IS _IN WAITING FOR INTERRPUT STATE 
OR THE 1/0 IS COMPLETE. 


CLRW UCBSW_CSR(R5) ; Clr storage area 
Retrieve the address of the device CSR 


MOVL UCBSL_CRB(RS) RS > Get address of CRB 
MOVL @CRBSC_INTD+VECSL_IDB(R4),R4 ; Get device CSR address | 


What is the function? 
CMPZ2V = #IRPSV_FCODE,- ; WRITELBLK function? 


#IRPSS~FCODE.- 
IRPSW_FUNC (RS) ,- 


#108 _ORITELBLK 
BNEQ 10$ : If NEQ, some other function 
BRW WRITE : It is EQL, it’s a write function 
CMPZV) = #@IRPSV_FCODE,- ; Write physical block function? 
#IRPSS_FCODE,- 
IRP$W_FUNC (RS) ,- 
#10$_ORITEPBLK 
BNEQ 15$ s1f NEQ no. 
BRW WRITEP sElse go do it. 
CMPZV) = #@IRPSV_FCODE,- Set mode function? 
#IRPSS FCODE,- 
IRP$W_FUNC(RS) ,- 
0$_SETMODE 
BEQL 30$ s1f EQL yes. 
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Line printer driver 
| rat 
123 ti ; THE SET MODE AND SET CHARACTERISTIC 
167 4 0 : TO THE BOARDS REGISTERS UNTIL 10 IS 
1 86 
147 426 : Set characteristics 
ie ge 
te a3 BO 0147 4&4 $ 208:  MOVW  IRPSL_MEDIA(R3),- 
40 A 4A 4 g UCBSB-DEVCLASS (RS) 
126 680 
14C 431 : Set mode 
eg 
3A AS 90 «014C «0434 308: MOVE IRPSL_MEDIA+2(R3),- 
42 a5 16 4 5 UCBSW-DEVBUFSIZ(R5) 
50 14 3 151 4 $ MOVZWL #SS$ BADPARAM RQ 
3F a3 154 4 : TSTB {RCS MEDIAS TOR ) 
1A 13 137 439 BEQL S$ 
3C AS) 0s 0159s 441 MOVL  IRPSL_MEDIA+4(R3),- 
44 a5 13¢ 44g UCBSL-DEVDEPEND(R5) 
3F AS 90 «(O15E «= 444 MOVB  _—IRPSL_MEDIA+7(R3),- 
0080 ¢5 161 445 UCBSW~LINES(RS) 
3A a3 90s«0164 409 MOVB  IRPSL_MEDIA+2(R3),- 
0081 C 167 448 UCBSW~LINES*#1(R5) 
4405 90 O16A 450 MOVB §UCBSL_DEVDEPEND(RS) ,- 
OOAF C5 1¢0 431 UCB$B~CSR2(R5) 
50 01 3c 17 £33 MOVZWL #SS$_NORMAL ,RO 
514 7 434 35$: CLRL ARI 
0147 31 Bie 456 BRW EXIT 


SSEp=1986 Oo:te:49 EDRIVER.SRESLCDRIVER.MAR: 1 


> se 4 


FORMATION IS NOT MOVED 
RTED. 


Set Page Width - DMF only has a BYTE 


Set BADPARM error status 
Lines pes page EQL zero 
Yes, then branch 


Set device dependent flags 


Set Lines per page 


Set Page Width BYTE for DMF32 


; Set device dependant controller bits 


Set normal return status. 


| 6 Ree oS 
LCDRIVER = LINE PRINTER DRIVER FOR Lp-730 ° 16-SEP-1984 : AX/VMS Macro v04-00 Page 13 L 
Woeeb05 Line printer driver oS Een obec 86: 48; i$ DRIVER. SRC JLCDRIVER.MAR; 1 . (1) | s 
17 458 ; $ 

17 t3 ; Is PASSALL set? $ 

1 ts a H 

0 17 462 WRITE: BBS #LPSV_PASSALL,- :; If set do physical 1/0. C 

44 nS 17A aes UCBSL ~DEVDEPEND (RS) , = ee ¢ 

17C 396 464 WRITEP C 

11 170 re BRB DECODE ; Else decode carriage control info : 

ier ie -ENABL LSB 4 

17F 64 Perform write physical block Dd 

are fe | i 

17F t WRITEP: D 

0400 of 80 17F 47 MOVW #C_INDREG4,=- ; Load the controller CSR D 

183 474 LP-CSR(R4) j..and set indirect register address | D 

51 OOAA es 3E 0184 475 MOVAW UCB$W_BUFADR(RS),R1 ; Address of indirect reg. data Dd 
52. 046 DO 0189 476 MOVL #C_REGCNT=2,R2 ; Number of indirect registers to copy D 

19 11 #O018C 47 BRB COMMON ; Ok, do what everyone else would | D 

ise 479 ; | D 

: : ? 0; 3 Decode carriage control info. : 

18— 4 3 BECODE: | D 

00000000'GF 16 O18F 4 J SBSH PREF AGE Returns carr. control in IRP$B_CARCON i) 
gt 4 484 ASSUME UCBSW_PREFIX¢2 €O UCBSW_ Sur FIX D 

3C AS) =O S=0196 «= 485 MOVL IRP$B_CARCON(R3), ; Set prefix char and cnt in cont. image D 

OOA6 C5 ae 486 UCBSu. PREF IX(RS) ) 

64 9g04 8F BO O19A 487 MOVW M_STBCSR,LP_CSR(R4) 3 Setup for typical transfer Ee 
0 0 O19F 488 MOVL Hi REGCNT ,R2~ ; Number of reg. to init. in controller E 

51 00a6 C —E O1A2 489 MOVAW UCBSW_PREFIX(RS) RI ; Get address of reg. images t 
E 

E 

E 

E 

E 

} E 

E 

E 

E 

E 

E 

fF 

fF 

F 

| 1 

1 

| | 

I 

I 

1 

| 

I 

I 
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y00-000 Line printer driver $23 Pa} 98e $8 :90:28 YORIVER. SREILCORIVER.MAR: 1 He (1)) 
7 491 COMMON: 
a3 
7E rH "3 , rt ish | a aaatchaaaa $ is gots a@ zero length transfer? 
3 no 
OAE CS 9 495 CLRB = UCBSB_HIBUFADR(RS) ; High bits of buffer address 
AC 5 4 49 CLRW $W_BYTECNT(RS) 3 Byte count 
& 1 by BRB N68 vf 


3 Allocate UBA map registers 


10$: 


POOOOOAA LOO > 
-~ 
Oo 


| 
| 
| 
7D mova sR ycBst REGSAVE (RS) : Save registers R1 and R2 
81 CMPW UCBSM MARBYT (RD). 3; If bent is > max bytes then get more map r | 
1 6 BGEQ 6 = i _«--else load UBA map registers | 
0 MOVL UCBSL_CRB(R5) ,R2 ; Get the CRB address 
0 MOVL CRBSL—INTD+VECSW_MAPREG(R2) ,- ; Save pre alloc. map register info 
UCBSL_MAPREG(RS) 
BICW #VECSM_MAPLOCK,=- ; Clear map register lock bit 
CRBSL_INTD+VECSW_MAPREG(R2) 


208 REQMPR ; Request UNIBUS map registers 


: If buffered ye set, irp is buffered io which first must be 
; converted to a direct io before proceeding further. 
| 


BBC #IRPSV_BUFIO, IRP$W_STS(R3),25$ IF Set, buffered io 

MOVL §IRPSL_SVAPTE(R3), Get system buffer address 

EXTZV #VASV_VPN,#VASS_VPN,(RO),R2 Extract vpn from system buffer add 
MOVL GOMMGSGL SPT AS Get address of base of system page 
MOVAL (R1)CR Store address of pte in ucb fiel 


1E eA A3 00 E1 
0 2cA dO 
60 15 09 


52 
51 


| 

52 60 09 ' EXTZV #VASV_BYTE,A#VASS BYTE, (RO) ,R2 Byte offset in system page | 
ia MOVW 2, UCBSW_BOFF (RS) Store this offset in ucb field | 

‘ LOADUBAA ; load uba map registers 


: Load byte count and calculate UNIBUS transfer address 


7E a3 LY 3 MNEGW UCBSW_BCNT(RS),- ; Setup byte count 
OOAC ¢ UCBSW~BYTECNT (R5) 
5! 7¢ A} 3¢ MOVZ2WL UCBSW~BOFF(RS),R1 : Fetch byte offset 
2 26a 06 VL CBSL~CRB(RS) ,R2 ; Get CRB address 
ag F INSV CRBSL TINTD+VECSW_MAPREG(R2) ,~ 
51 09 #9,89-R1 
52. 51 é 10 EF ExTZ2v #16,#2,R1,R2 :Get memory extension bits 

OOAA C : 80 MOVY R1,UCB$W_BUFADR(RS) :Setup 16 bit buffer address 
QUAE b3e ¢ MOVB R2 ycese fied We ; Set upper address bits 

1 BC 70 MOVQ ucé L_REGSAVE (RS) ,R1 yRestore registers R1 and R2 


: Load controller and start transfer 


i 
i3 
Pp 
Pp 
Pp 
P 
Pp 
Pp 
Pp 
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U 
U 
U 
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= LINE PRINTER DRIVER FOR Lp-730 | 16-SEP-1984 : AX/VMS v04- 9 
Line be driver $78 P=1984 8:98: 8 YORIVER. © R.S iLcb RIV sieecicint 
02 A4 oe A i MOV (R1)*,LP_DBR(R4) 3; Copy indirect reg. to controlle 
‘9 3 Bg ‘ SOBGTR Re. 308 ~s 3 : branch f more + 4 do. : 
| : DSBINT ; Raise IPL 
as E0 BBS He POWER,=- 3: If set, eeuee has failed. 
20 64 64 A 9 4 B$w_STS(R5S,41$ 
041 BF Ag f 5 BISw CSR RSH PRIENATLP. CSRSM_IE,~ 
4 § thet “Start xfer 
41 2 ve jenee 460 Th : Wait for xfer to complete 
4B 8 10F 3; Fork to lower IPL 


P 
I 

C 
P 
S$ 
P. 
S$ 
P 
C 
A 
T 
1 
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LCDRIVER = LINE PRINTER DRIVER FOR LP=730 16-SEP-1984 00:00:36 VAX/VMS Macro v04-00 p 
rare Line printer driver gree 8Be Bosfeics YORIVER. caesechetvee.mansy ae 


1 3 
! ‘ ; Save status and check for errors 
1 a 
OOAO C5 4 8B 1 64 MOVW LP_CSR(R4) ,UCBSW_CSR(R5); Save controller state 
E § 65 BBS #LP_CSRSV_LPERR,= 3; If set printer problem 
6F OOAO C 66 UCBSW_CSRTRS), 1408 
BS C 67 418: CLRW LP_CSR(R4) ; Set indirect register addr. to zero 
OA2 C 8s AG C8 ; $8 MOVW LP“DBR(R4) ,UCBSW_BYTXFR(RS) ; Save the number of bytes transfered 
AG C AG OB 6 § MOVW LP_DBR(R4) ,UCBSW_LINCNT(RS) ; Save the number of Lines printed 
A 0 PURDPR ; Purge the data paths 
52 24 a5 00 0 71 MOVL ycest CRB(RS) RZ : Get the address of the CRB 
OF £0 74 i BBS #VECSU_MAPLOCK,= ; If SET do not release map registers 
34 2 f 3 CRESL_TNTD*VECEW_MAPREG(R2) ,- 
7 75 RELMPR 3; Release map registers 
52. 24 3 4 7F 6 MOVL UCBSL_CRB(RS) ,R2 ; Restore the address of the CRB 
oor? C i) Ht 7 MOVL UCBSL-MAPREG(RS) ,- ; Restore pre-allocated map information 
4 A2 87 8 ‘ite CRBSL—~INTD+VECSw._MAPREG(R2) 
0S €4 4 0 ; BBSC #UCBSV_POWER,- 3; If set. power has failed. 
37 64 A5 88 1 UCBSW_STS(R55 ,90$ 
OOA0 C5 9000 B&F Hy of : BITW #LP_CSRSM_ERR,UCBSW_CSR(R5) ; Any errors? 
1 8 9 4 BEQL ; If EQL, no errors. 
00000000 * GF 16 97 5 JSB G*ERLSDEVICERR 3; Report the error 
0006 8631 H § BRwW 46$ 
64 AS 08 Hy AO 3 44$: BITW SYCESH CANCEL .UCESY_STS{RS) 3; Is the cancel bit set? 
06 1 re 4 BEQL 48% 
50. 2c HS A6 91 468: MOVZWL #SSS$_ABORT,RO ; Set operation aborted status 
0003 1 Ag 3 BRW 50$ 
AC 9 
AC 898 
0 ry ; 1/0 OPERATION SUCCESSFULLY COMPLETED 
aC 6598 ° 
50 O01 5X rv 555 $88: MOVZWL #SS$_NORMAL ,RO ; Set normal completion status 
3 658 AS go AF 601 ; MOVL UCBSL_IRP(RS) ,R3 ; Retrieve address of i/o packet 
51 OOA4 CS 3C 0283 6 j MOVZ2WL UCBSW"LINCNT(RS) RI ; Get number of Lines printed 
DpAe ¢ FO 88 $8 INSV UCBSW_BYTXFR(RS),- 
50 +3 ? : eatts 6,#T6,R0 : Insert number of characters in status 
Bf 6 S 60$: REQCOM ; COMPLETE 1/0 REQUEST 
3 6 3 90$: ENBINT 
FES2 31 ce 6 BRW STARTIO 
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Line printer driver eet 7 99:90:28 YORIVER. SREIECDRIVER.MAR: 1 ° (1) 
cB 11; ; 
+8 ie ; PRINTER IS NOT READY OR HAS PAPER PROBLEM 
CB O64 
cB oF 140$: CLRW UCBSW_LP_OFLCNT(RS) 3 ci eer offline counter 
CF 18 BICw #LP_CSRSA_I LP.CSR(RS) i Disable printer interrupt 
D4 61 150$:  SETIPL uCcBSB PAPC (RS * Lower to fork leve 
D8 18 BITw #LP_CSRSM_LPERR,LP_CSR(R4) ; Printer still have paper problem? 
DD 1 BNEQ ; If NEQ, yes it does 
DF 0 MOVW rc TIM,UCBSW_LPTIMEOUT(R5) ; Reset timeout value 
cs 1 BRw 408 3 And continue transfer. 
64 AS 8 E7 g 5 155$: ®BITW SYS EOR_CANCEL UCBSU_STS(AS) 3_Is the cancel bit set? 
EB 624 BEQL 156$ 3 L. no cancel 
FF6C : ? 5 BRW 41$ 
01 OB2 C F 6 5 156$ ACBW UCBSW_LPTIMEOUT(RS) ,#1,- 
0026 0084 ¢ 3 6 : UCBSW-LP_OFLCNT(R5).160$; Skip until timeout 
0084 C5 re ? ? CLRW UCBSW_LP_OFLCNT(RS) ; Reset counter 
0780 8F f 6 § CMPW #LP_HRCNT,=- ; Are we at our max. (1 HR.) 
0082 C5 0 6 ; UCBSW_LPTImMEOUT (RS) 
83 18 05 635 BLEQ 157$ 3; If LEQ, yes 
0082 C5 AG 07 6 § MULW PS LPTIMEOUT(RS) ; Double message timeout value 
1 88 45 637 157$: PUSHR #*M<R3,RE> ; Save registers 
54 0 9A —E 638 MOVZBL #MSG$_DEVOFFLIN,R4 ; Set up message type 
53 Q0000000'GF 9€ 11 639 MOVAB G*SYSSGL_OPRMBX,R3 ; Address target mailbox 
00000000'°GF 16 18 640 JSB G*EXESSNBEVMSG i Send message ignore error 
18 BA 1 641 POPR @*M<R3,R4> 3: Restore registers 
642 160$: OSBINT ycase DIPL(RS) 3 Disable interrupts 
64 WF IKPCH $,F2 ; Wait for an interrupt or timeout 
1 644 1OF ORK ; Create for process 
98 «O11 7 645 BRE 1508 3 
8 9 64 -DSABL LSB 
3964 


64 8000 BF RA 
a 
: 
30 
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-SBTTL Line printer interrupt dispatcher 


LPSINT = LINE PRINTER INTERRUPT DISPATCHER. 
S_ ENTERED VIA A_JSB8 INSTRUCTION WHEN A 
HE STAC 


N ge hat | OCCURS ON 
K ON ENTRY IS: 


3 O(SP) = ADDRESS OF IDB ADDRESS. 
$ 4(SP) = SAVED R3. 
3 (SP) = SAVED Ra. 
: (SP) = SAVED RS. 
s } (SP) = INTERRUPT PC. 
3 (SP) = INTERRUPT PSL. 
; INTERRUPT DISPATCHING OCCURS AS FOLLOWS: 
F IF THE INTERRUPT IS EXPECTED, THEN THE DRIVER IS CALLED AT ITS INTERRUPT 
3 WAIT ADDRESS. ELSE THE INTERRUPT IS DISMISSED. 
LPSINT:: 3; Entry from dispatch 
MOVL ; Get address of ID6 
mOva ee * Bas RG : Get controller CSR and owner UCB addr 
BBCC ae ie 4g uc cBsu STS(RS),10$ sIf clr, interrupt not expected 
BICW MLE CLP P_CSR(R4) ; Disable output interrupts 
VL Ucest ae S-R3 3; Restore remainder of driver context 
JS8 CBSC_FPC(RSS 3 Call driver at interrupt wait address 
10$: MOVQ (SP)+,RO ; Restore registers 
MOVa (SP)+,R2 $ 
neve (SP)+,R4 5 


<r 


| 


| 
| 
| 
| 
j 


sets 


0 
64 AS 
5 
5 


1 
A 
0 
26 64 A 
33 05 
00000000 * GF 

1A 

0086 (5) = 53 

0086 C5 0200 8F 
0 4 AS 
8000 8F 
08 
000 


50. 4 a 
0086 C 


42 AS 
0081 C5 
OOAF C5 


+ or 
woo HE 
04 ad $8 
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SSEp=198e Oo:tes49 LORIVER. sae 


ro V04-00 
ILCORIVER.MAR; 1 


1 a -SBTTL Line printer unit initialization 
$ > LCLINIT = LINE PRINTER UNIT INITIALIZATION 
685 : THIS ROUTINE IS CALLED AT SYSTEM STARTUP AND AFTER A POWER FAILURE. THE 
? § : ONLINE BIT IS SET FOR THE SPECIFIED UNIT. 
6 8 > INPUTS: 
630 ; RS = ADDRESS OF DEVICE UCB. 
636 : OUTPUTS: 
694 : THE ONLINE BIT IS SET IN THE DEVICE UCB AND THE ADDRESS OF THE UCB 
£36 3 IS FILLED INTO THE IDB OWNER FIELD. 
697 ° 
$28 LC_INIT: 3 LINE PRINTER UNIT INITIALIZATION 
$30 BISW #UCBSM_ONLINE,- 3; Set unit online 
? 1 UCBSW_STS(R5) 
7 : BBS #UCBSV_POWER,- 3; If set power has failed 
f 4 UCBSW_STS(R5S,10$ 
7 MOVL #LC_MAPREG,R3 : Number of mapping reg. to pre-alloc 
709 JSB G* IOC SALOUBAMAPN 3; Request map ~ laters , 
708 BLBC ol 3; If LBC, request failed 
709 SUBW3 #2,R3,UCBSW_MAXBYT(RS) ; One less reg. 
710 MULW2  #PAGSIZ,UCBSW_MAXBYT(RS); Save max byte count 
711 MOVL uces CRB(RS) 7RO : Get address of CRB 
ay BISW #VECSA_MAPLOCK,- ; Set maplock bit 
71 CRBSL_INTD+VEC$W_MAPREG(RO) 
at BRW 208 
£18 10$: MOVL UCBSL_CRB(R5) RO ; Get address of CRB 
4 CLRW UCBSW-MAXBYT (RS) ; Clear max byte cnt. since no map alloc 
9 208: MOVB UCBS$W_DEVBUFSIZ(R5),- ; Set default buffer size 
? 9 UCBSW"LINES+1(R5) 
7 ¢ B1SB #LPSM_LOWER,UCB$B coRg ine? 3; Set device dependant bits 
7 MOVE #LINPAG,UCB$W LINES(R ) : Set Lines per page 
724 MOVL CRBSL Jntowvet L_IDB(RO),RO ; Get address of 168 
4 2 ROVE R5, IDB$L_OWNER(RO) ; Set address of device UCB 


for buf. near page boundry 
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/LCDRIVER = LINE PRINTER DRIVER FOR LP-730 SEP=1984 00: AX/VMS M v04-00 Page 20 
‘Woe=000 Line printer unit initialization Bost 9:90: 3 DRIVER. SRE stcD RIVER.MAR; 1 ’ (1), 
~ | d + = -SBTTL Line printer unit initialization 
| at f 0; > LC CINIT = LINE PRINTER CONTROLLER INITIALIZATION 
AC 7 § ; THIS ROUTINE IS CALLED AT SYSTEM STARTUP AND AFTER A POWER FAILURE. THE 
| rt 4 ? : ONLINE BIT IS SET FOR THE SPECIFIED UNIT. 
| AC 735 : INPUTS: 
AC £38 
AC 737; R4 = ADDRESS OF DEVICE CSR. 
= 7 } : RS = ADDRESS OF DEVICE UCB. 
aC 746 : OUTPUTS: 
3 
AC og 3 THE LINE PRINTER OFFLINE BE SSAGE coer IS INITIALIZED fl A 
AC 743 ; RESET HAS BEEN DONE ON THE LP CONTROLLER AND THE INTERRU 
0 ry: eee H VECTOR OF THE LP IS LOADED INTO THE CONTROLLER. | 
O3AC 746 : | 
0 AC 747 LC_CINIT: 
64 0¢ 80 AC 748 MOVW #RESET,LP_CSR(R4) 3; Master reset 
50 8A DO O3AF 749 MOVL IDB$L_UCBCST(RS) ,RO ; Get UCB addres 
00B2 cO 3=6—OF:)«6=6B80s«*0383)=—Ss 750 MOVW #C_TIM,UC8SW_LPTIMEOUT (RO) 3 Initialize LP “offline message time | 
50 (OF AS 38 0388 751 CVTBL  I1DB$B_COMBO_CSR_OFFSET(R5),RO ; GET OFFSET TO MAIN DMF CSR | 
10 a5 8 BC 138 SUBB3 IDB$B~COMBO-VECTOR_OFFSET(RS),- 
6440 4 AS 038F 75 IDBSB-VECTOR(RS), (R4) CROJ 3; LOAD THE VECTOR ADDRESS 
OO0O0035E1°EF OOOOOSES ‘EF OF bate et a FALLTAB, TRANS_ TAB ; Get address of fallback tables 


<r 
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100-000 Register dump routine gree E19 4 8:99: i$ DRIVER.S TLCDRIVER.MAR; 1 mr 1) 


34 ft -SBTTL Register dump routine 
§ ; LP_REGDUMP = REGISTER DUMP ROUTINE 


« Be 
CF 67 
CF 67 
CF 760 ; 
CF 761 ; FUNCTIONAL DESCRIPTION: 
CF 586 3 THIS ROUTINE IS CALLED TO SAVE THE DEVICE REGISTERS IN A SPECIFIED 
$f Pee ; BUFFER. IT IS CALLED FROM THE DEVICE ERROR LOGGING ROUTINE. 
CF £66 ; INPUTS 
CF 460767: RO = ADDRESS OF REGISTER SAVE BUFFER 
9 CF 768 ; R4 = ADDRESS OF DEVICE CONTROL STATUS REGISTER 
CF 6 ; R5= ADDRESS OF UNIT CONTROL BLOCK 
O3CF 770 ; OUTPUTS: ‘ 
O3CF 46771: EVICE REGISTERS ARE MOVED IN NTO THE SPECIFIED BUFFER 
O3CF ie ; 0 CONTAINS THE ADDRESS OF TH T EMPTY LONGWORD IN THE BUFFER. 
pact et? 3 ALL REGISTERS EXCEPT R1 AND R Whe PRESERVED. 
OCF 775 :-- 
O3CF 776 LP_REGDUMP: 
52 09 00 O3CF 777 MOVL #LP_NUM_REGS,R2 ; Store number of registers 
80 2¢ 0 Babe 778 MOVL R o 3; Insert # of longwords dumped 
51 O0a0 C E 930 779 MOVAW UCBSW_CSR(RS),R1 : Get address of first req. 
80 81 C Q3DA 780 108: MOVZWL (R1)+,(RO)+ ; Dump registers into buffer 
FA 52 F5 O30D 781 SOBGTR R2,10$ : If GTR = more to go 
05 Beee ree RSB 3; Return 
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FALLBACK = Macros to create character ta met 7 8:00: 36 YORIVER. CRETE CORIVER.MAR: 1 


é} 4 5 -SBTTL FALLBACK = Macros to create character table for fallback 

$omg. 5 3 

+ if 3 3 Pointer to the fallback tables 

E1 790 TRANS. TAB: 

QOO003ES* 0361 791 -CONG FALLTAB 

Ee 138 

E 79 

Ee 794 344 

E 795 ;FALLBACK = TABLE TO ALLOW THE TERMINAL TO DO FALLGACK PRESENTATION OF 

73 a 3 8BIT CHARACTERS on 7 bit terminals 

eS 798: description: 

ES 799; he following macros generate 1 table. The table is a 256 byte 
O3E5 00 ; table with the single character fallback representation of all the 
O3€5 01 ; characters that can be represented by a single character, those with 
beee O¢ 3 no fallback presentation at all are represented by the _ character, 
bape Hi ta 
O3€5 05 emacro $fallini 
O3E5 06 $= 
O3€5 07 .repeat 256 
O3E5 08 .IF LE $$-<*X9F> ; EVERYTHING BUT THE MULTINATIONAL SET SHOULD 
O3E5 809 ; ECHO AS ITSELF. 
03E5 gi9 byte $$ 
O3€5 11 J IFF 
03E5 HE BYTE *A/_/ 

O3€5 13 .ENDC 

O3E5 814 $$=$$+1 

O3E5 815 .endr 

O3E5 816 $$$-. —* 
O3€5 817 -endm = $fallini 
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FALLBACK = Macros to create character ta S-SEP-1984 14:4 


SPALL = generates the table entry for a given character 
Inputs: 


a = COLUMN in . ascit TABLE. 
CHARL = ROW IN THE ASCII TAB 

FALLBACK = String that is the fallback representation 
COUNT = Number of times to repeat this character 


MACRO SFALL CHARH,CHARL, FALLBACK, COUNT=1 
.=FALLTAB+<CHARH® 16>¢CHARL 
«REPEAT COUNT 
-NCHR SLEN,“\FALLBACK\ 
-IF EQ SLEN- 
-BYTE “A/FALLBACK/ 
~ENDR 


-ENDM = SFALL 


DRIVER. SRCILCORIVER.MAR; 1 
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; 33 3 SFALLEND - GENERATES END CONDITIONS FOR THE FALLBACK TABLE 
: 4] : Description: 
; i$ ; Resets the . to the end of the fallback table 
E 45 : Inputs: 
; of ; None 
E rk : -MACRO $SFALLEND 
E 50 .=$$$ 
OSE 51 -ENDM SFALLEND 


v04-00 
itcp RIVER.MAR;1 


Pa 24 
eee” 


cc 


ww 


P 
age ¢ 


v04-00 
CDRIVER.MAR; 1 


SEp-19be Oo:1e:49 EDRIVER. SREIL 


Ig- 


- LINE PRINTER DRIVER FOR LP-730 
FALLBACK = Macros to create character ta 


ba) 


MAMMMNUUN OOOO 


a 
tad 
> 
a 
a 
a 
poe 
4 
on 
— 
ft 
— 
oO 
— 
— 
” 
<x 
_) 
No 
Oo 
” 
“” 
td 
« 
a 
a 
<< 
*e 
| 
| 
w w 
owoesuwwysr Owe wn wv 
ao oc- « aot os > “ee a f_ 
-"Vu>O Oem 3 ee + svw *ZOOD -@ve -coos : 
esses e ODO 8s ees 8s 8 Ow &= © ww es 8 oH 8 et ety 888 
HOPNND — OR CPN. Oe OF. DO IDO — OF- DW —  UOO — 
sees eeseeseeseeeeeeeeseseeeeseeeseeeseeseesese ee ees & 
QQ IOC VEN ST TT TN 
pe ee 
ot 
= 2 
-_ ae 
Aah I Ih I I I I I I I I I I od Ih I I I dh I oh od I I I I I I I I 
Saeed Js J I J J J I IJ IJ IJ IJ J IJ I IJ J I IJ IJ I I I II I I I a 
qqdq@ddddddd ddd deeded ede eee eee eee eee 2 
te ke. be ke ke Ce be Le ke he A be Me te he bd ke tk th tk kL kk tk ke ke tt vs) 
RFD OM A CD BD OD GB ED CP OF OF BD GF OF ED OF OOF ED 9 FEF AA DAD CD BD BM ° 
@ 
< oa 
— = 
=) 7 
a a 
<< 


QDR VGWOIM DOR MAR GS WEMMAAAW 
PE SEEEEEEESESESEEE EERE 


é 
6 
6 
6 
; 
71 
7? 
7? 
74 
75 
7 
? 
7? 
7 
3 
8 
8 
8 
i 
8 
8 
8 
9 
91 
9 
9 
94 


| 
L 


= LINE PRINTER DRIVER FOR LP-730 ' 


7 


<r 


| LCDRIVER 16-SEP-19 76 AX/VMS 
Symbol table 74 DRIVER.S 
$$ = 10 10$_ VIRTUAL = F 
$$$ : 4 10$"WRITELBLK 2 0 
$SOP = 8 10$_WRITEPBLK = 5 
ATS_UBA = 10$"WRITEVBLK = 
¢ 1A7 IOC SALOUBAMAPN eeeneeee =X ; 
CRBSL_INTD = 024 IOCSCANCELIO eeneeree =X 
C_INDREGS » 400 93 se eine eenereee § 
C_REGCNT = 6 10C$™ eenenere x 
TIM = F 1OCSPURG BATAP erences x 
ors LP = 43 LOCSRELRAPREG ateneree = § 6X 
DDBSL_DDT = oc IOCSREQC eeereree §=6X 
DECODE 18E R {OC SREGRAPREG eeteeree = §6X 
DEVSM_AVL tereeeee x IOCSRETU eeerener x 
DEVSM_CCL eerereee 10C$wF Ik pee aeeeeree = § X 
DEVSM_ELG eteeneee = §6X ak ro = 0000 oie 
DEVSM_NNM eenetene 8§=6X IRPSL_MEDIA = 0000003 
DEVSM_ODV eeneeeee 8 =X 8 IRP$L_SVAPTE = 0000002C 
DEVSM_REC eetenere =X IRPSM_ Bethy = of 0001 
DMF _CSR o aaa AA SS IRP$S_FCODE = 8 38 $ 
DPTSC_LENGTH = 000000 IRPS$V_BUF 10 = 0000000 
DPTSC_ VERSION - 944444 4 IRPSV~F CODE = 44443 
PTSIRNIT 00000358 R 0 IRP$W" BOF F = 000000 
DPTSREINITAB 0000062 R 0 IRPS$W_FUNC = 00000020 
PTSTAB 0000000 R 0 IRP$W_STS = 0000002A 
DTS_DMF 32 = QO000000A JIBSL-BYTCNT = 00000020 
DYNSC_CRB = 00000005 LC_CIRIT 444 AC R 03 
DYNSC_DDB = 00000006 LC_LINIT QO0035A R 03 
DYNSC_DPT = 0000001 LC" MAPREG = 00000005 
DYNSC_UCB = 0000001 LIRPAG = 944 4d 
EMBSL _DV_REGSAV = 0000004E LPSDDT 44 3 3 
ERLSDEVICERR eereeeee =X 8603 LPSINT 0000339 3 
EXE T tereneee =X 8 03 LPSM_LOWER = 0000008 
EXESALLO eenenene x 0 LPSM_MECHFORM = 0000000 
EXESBUF FRQUOTA eeeeeere x QO LPSV_FALLBACK = 444 
EXESCARR! AGE eeneeree =X 0 LP$V"PASSALL = 00000008 
1OF ORK teeeeree KX 0 LP_CSR 0000000 
EXESQIODRVPKT eeteenee §6X 83 LP-CSRSM_CVERF = 9 4d 64 
EXESSENSEMODE teeeeere =X 8 60 cP CSRSM_ERR » 3 9 re 
EXESSE TMODE tecerere =X 0 LP-CSR = 0000004 
EXESSNDEVASG eeereeee =X 0 LP-CSRSM_LPERR = 00004000 
EXESSNGLEQUOTA eeeeeeee § Xx 8 LP-CSR = rt 0 
EXESWRITECHK eeteeere § LP-CSRSM_PRIENA = 1 
EXESWRITEL eerecere§=X 0 LP- CSRSV_ _LPERR = $6 
EXIT LP-DBR 0 
FALLTAB RG LP-END r+ R 03 
FUNCTABLE LP caceue LEN = 
FUNCTAB_LEN = LP- HRCNT = 3 
108$8_COMBO_CSR_OFFSET = LP_NUM s 
108$8_ COMBO VECTOR_OF FSET = LP-REGBUMP CFR 83 
1DB$8_ VECTOR z LP” WRITE R 
1DBSL-CSR = MA s 
IDBSL_OWNER = MASKL S 
+ ja UCBLST = ROS SPTBASE seeeener x 03 
10$_ SENSE CHAR = $ DEVOFFLI IN : 5 
10$~SENSEMODE = ms oF te : 2 
10$_SETCHAR = P = 0 
1087 SE TMODE z P2 s 4 
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! Psect synopsis ! 
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PSECT No. Attributes 


Allocation 


PSECT name 


HIE ver one Suse 


$$$115 "DRIVER 


Fe ete te hati 


A t 9 -) NOPIC USR CON ABS L 
96.) NOPIC USR CON ABS L 
i ) 6° NOPIC USR CON REL L 
1253.) NOPIC USR CON REL L 


i oo 


! Performance indicators ! 


Purr smcaer mone wm seroewasree ase } 


CL 

CL NOSH E D 
CL NOSHR EXE RD 
CL NOSHR EXE R&D 


Phase Page faults CPU Time Elapsed Time 
Initialization 32 00: 00:8 +96 0: 8:9 a4 
gonnene processing ih Ba: < i ? - 138 “22 
Symbol table sort 168 3 0: 2:33 0: 0:09.51 
aE table output a 0:00:00.15 0:00:04 28 
Psect synopsis output 00: * 0. ‘ 0:00:00.01 
Cross-reference output 8 0: 2 B30 82-0 
Assembler run totals 96 0:00:25.84 0:01:35.81 


s.yorking oot Limit was 1950 pages. 
13858 bytes (310 pages) of virtual memory were used to buffer the intermediate code 

There were 130 pages of symbol table space ay cecgtes © hold 2348 non-local and 35 local symbols. 
894 source line’ were read in Pass 1, producing object records in Pass 2. 

0 pages of virtual memory were used to define 4 phn ves 
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! ; Macro Library statistics ! 


Seer ener new coe new ea wea woman } 


Macro Library name 


“$3 35SDUAgE: BAF -OBJJLIB.MLB;1 30 
SYSLIBISTARLET. MLB; é 11 
S ithe (all Libraries) 41 


2587 GETS were required to define 41 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:LCDRIVER/OBJ=OBJ$:LCDRIVER MSRC$:LCDRIVER/UPDATE=(ENHS$:LCORIVER) EXECMLS/LIB 
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